import Language.Haskell.Syntax
import Language.Haskell.Parser

main :: IO()
main = do
      x <- readFile "Main1.hs"
      let (ParseOk y) = parseModule x
      print $ show y